home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.49 / mathematik / cosinus.p next >
Text File  |  1995-06-24  |  567b  |  27 lines
  1. var s:integer;
  2.  
  3. FUNCTION Cosinus(s:Real):Real;
  4.  VAR h:Real;
  5.      d:ShortInt;
  6.   BEGIN
  7.    d:=1;
  8.    If s>(2*PI) then Begin
  9.     Repeat
  10.      s:=s-(2*PI);
  11.     Until s<=(2*PI);
  12.    End;
  13.    If (s>PI) and (s<=(2*PI)) then Begin s:=s-PI; d:=d*(-1); End;
  14.    If (s>(PI/2)) and (s<PI) then Begin s:=PI-s; d:=d*(-1); End;
  15.    h:=(1+s*s*(-0.4999999963)+s*s*s*s*0.0416666418+s*s*s*s*s*s*(-0.0013888397)+
  16.       s*s*s*s*s*s*s*s*0.0000247609+s*s*s*s*s*s*s*s*s*s*(-0.0000002605));
  17.    Cosinus:=h;
  18.    If d<0 then Cosinus:=-h;
  19. END;
  20.  
  21. BEGIN
  22.  
  23. for s:=1 to 13 do writeln(s," ",cosinus(s));
  24.  
  25. END.
  26.  
  27.